<%=gdm%> 的炒股个人主页
<%=rs("uid")%> 的个人资产档案---所属组〖 target=_blank><%=rs("teamname")%>〗 |
用户名:
|
<%'=rs("unick")%><%=trim(rs("uid"))%>
|
入市资金: |
<%=formatnumber(rs("openfund"),2,true)%> 元 |
综合排名:
|
<%=rs("new_phb")%>
|
仓 位: |
<%=ccbl%> |
总成交量:
|
<%=formatnumber(rs("all_cjl"),2,true)%>
(周转率:<%=formatnumber(csng(rs("zhouzup")),0,true)%>%)
|
发站内邮件,请先登录模拟炒股!\n登录后,使用自己的模拟炒股帐号可与<%=rs("uid")%>在线交流!');window.open('login.asp','_blank');">→给<%=rs("uid")%>发站内邮件
|
昨日总资产:<%If yll>=0 then
response.write ""
else
response.write ""
End If
%><%=formatnumber(rs("all_balance"),2,true)%> 盈利率: <%
If yll>=0 then
response.write ""
else
response.write ""
End If
%>
<%=yll%>%
|
资金余额:
|
<%
if csng(rs("balance"))<0 then
response.write "0.00"
else
response.write formatnumber(rs("balance"),2,true)
end if
%>
元
|
昨日股票市值: | <%=formatnumber(rs("stock_balance"),2,true)%> 元 |
开户日期:
|
<%=rs("regdate")%>
|
最近登录:
|
<%=rs("lastlogindate")%>
|
<%
rs.close
%>
|
<% if teamid="518" or teamid="519" then%>
<% end if%>
月度勋章:
<%
dim i
if xunzhang=0 then
response.write "无"
elseif xunzhang>4 then
dim jj,kk
jj= xunzhang mod 5
kk= cint((xunzhang-jj)/5)
for i=1 to kk
response.write " "
next
for i=1 to jj
response.write " "
next
else
for i=1 to xunzhang
response.write " "
next
end if
%>
评级:
<%
if duan=0 then
response.write "初段"
else
response.write ""
response.write duan & "段"
response.write ""
end if
%>
赢大盘:
<%=yingdp%>次
选股成功率:<%
if successup>=80 then
response.write "" & successup & "%"
else
response.write successup & "%"
end if
%>
日均赢利:<%if everydayyl<0 then %><%else%><%end if%><%=everydayyl%> 元
|
<%
sql="select * from mncghis..userid where uid='"&gdm&"'"
rs.open sql,conn,1,1
if (rs.recordcount=0) then
yjbgimg="/"&rq&"/0.png"
else
ifmappath=trim(rs("mappath"))
if mapimg="" then
if ifmappath="" or isnull(ifmappath) then
yjbgimg="/"&rq&"/0.png"
else
yjbgimg="/"&rq&"/"&rs("id")&".png"
end if
else
yjbgimg="/"&mapimg&"/"&rs("id")&".png"
end if
end if
rs.close
%>
<%
if ifmappath<>"" then
mappath=split(trim(ifmappath),",")
for i=0 to ubound(mappath)
if trim(mappath(i))<>"" then
response.write "" & left(trim(mappath(i)),4) & "年"& right(trim(mappath(i)),2) & "月" & "|"
end if
next
end if
%>
<%=gdm%>月度资产涨幅及日收益率走势图
border=0 alt=<%=gdm%>的月度资产涨幅走势图>
<%
sql="select * from mncghis..lastzs where stock_code='399300'"
rs.open sql,conn,1,1
zs_lastdayup= formatnumber(csng(rs("lastdayup")),2,true)
zs_lastweekup=formatnumber(csng(rs("lastweekup")),2,true)
zs_lastmonthup= formatnumber(csng(rs("lastmonthup")),2,true)
zs_lastyearup=formatnumber(csng(rs("lastyearup")),2,true)
rs.close
%>
|
|
指数涨幅 |
用户资产涨幅 |
涨幅差 |
上日 |
<%if zs_lastdayup<0 then %><%else%><%end if%><%=zs_lastdayup%>% |
<%if lastdayup<0 then %><%else%><%end if%><%=lastdayup%>% |
<%if lastdayup-zs_lastdayup<0 then %>↓<%else%>↑<%end if%><%=formatnumber((lastdayup-zs_lastdayup),2,true)%>% |
本周 |
<%if zs_lastweekup<0 then %><%else%><%end if%><%=zs_lastweekup%>% |
<%if zyl<0 then %><%else%><%end if%><%=zyl%>% |
<%if zyl-zs_lastweekup<0 then %>↓<%else%>↑<%end if%><%=formatnumber((zyl-zs_lastweekup),2,true)%>% |
本月 |
<%if zs_lastmonthup<0 then %><%else%><%end if%><%=zs_lastmonthup%>% |
<%if lastmonthup<0 then %><%else%><%end if%><%=lastmonthup%>% |
<%if lastmonthup-zs_lastmonthup<0 then %>↓<%else%>↑<%end if%><%=formatnumber((lastmonthup-zs_lastmonthup),2,true)%>% |
今年 |
<%if zs_lastyearup<0 then %><%else%><%end if%><%=zs_lastyearup%>% |
<%if lastyearup<0 then %><%else%><%end if%><%=lastyearup%>% |
<%if lastyearup-zs_lastyearup<0 then %>↓<%else%>↑<%end if%><%=formatnumber((lastyearup-zs_lastyearup),2,true)%>% |
自注册日起 |
<%if startzsup<0 then %><%else%><%end if%><%=startzsup%>% |
<%if yll<0 then %><%else%><%end if%><%=yll%>% |
<%if yll-startzsup<0 then %>↓<%else%>↑<%end if%><%=formatnumber((yll-startzsup),2,true)%>% |
|
股票代码 |
股票名称 |
拥股数 |
可卖数 |
买入成本 |
盈亏成本 |
当前价 |
今日涨幅 |
股票市值 |
保本价 |
盈亏率 |
累积浮动盈亏 |
状态 |
<%
sql="SELECT * FROM stock,price WHERE stock.userid='"&gdm&"' and stock.stock_code=price.stock_code and stock.stock_type=price.stock_type"
rs.open sql,conn,1,1
totala=0
stocknum=rs.recordcount
if rs.recordcount>20 then
rs.PageSize = 20
totalA=int(rs.recordcount/rs.pagesize)+1
if recs<>0 then page=int((recs-1)/rs.pageSize)+1
if page<1 then page=1
if page>totala then page=totala
rs.AbsolutePage = Page
end if
if (rs.recordcount=0) then
response.write ""
Response.write " 当前无持仓股票!"
response.write " | "
rs.close
Else %>
<%i=1
do while not rs.EOF and i<=20
%>
| bgcolor=#CCECFC onMouseOver="this.style.background='#ffcccc'" onMouseOut= this.style.background='#CCECFC'<%else%> bgcolor=#E7F6FD onMouseOver="this.style.background='#ffcccc'" onMouseOut= this.style.background='#E7F6FD'<%end if%> VAlign=top noWrap>
&ms=4" title="查看个股F10资料" target=_blank><%=rs("stock_code")%> |
&ms=1" title="查看个股行情" target=_blank><%=rs("stock_name")%> |
<%=formatnumber(rs("amount"),0,true)%> |
<%=formatnumber(rs("frozen_amount"),0,true)%> |
<%
jys=rs("stock_type")
'if (rs.recordcount<>0) then
if trim(rs("zqlb"))="A" then
flk=0.002
flk2=0.005
jingdu=2
elseif trim(rs("zqlb"))="B" then
flk=0.002
flk2=0.005
jingdu=3
elseif trim(rs("zqlb"))="E" then
flk=0.002
flk2=0.005
jingdu=3
elseif trim(rs("zqlb"))="F" then
flk=0.002
flk2=0.005
jingdu=3
elseif trim(rs("zqlb"))="Z" then
flk=0.0015
flk2=0.003
jingdu=3
else
flk=0.002
flk2=0.005
jingdu=2
end if
fzjcj=formatnumber(csng(rs("new_price")),jingdu,true)
'fzjcj=rs("new_price")
fzrsp=rs("old_price")
jys=rs("stock_type")
'else
' fzjcj=0
' fzrsp=0
' flk=0.003
' jys=""
'end if
if csng(fzjcj)=0 then
if csng(fzrsp)=0 then
ggyll=0
ryke=0
else
ggyll=(csng(fzrsp)-csng(rs("ykcb")))/abs(csng(rs("ykcb")))
ryke=(csng(fzrsp)-csng(rs("ykcb")))*rs("amount")
end if
else
ggyll=(csng(fzjcj)-csng(rs("ykcb")))/abs(csng(rs("ykcb")))
ryke=(csng(fzjcj)-csng(rs("ykcb")))*rs("amount")
end if
if csng(rs("old_price"))<>0 and csng(rs("new_price"))>0 then
jrzd=formatnumber(((csng(rs("new_price"))-csng(rs("old_price")))/csng(rs("old_price")))*100,2,true)
else
jrzd=0
end if
if csng(fzjcj)=0 then
jrgpsz=cdbl(fzrsp)*cdbl(rs("amount"))
else
jrgpsz=cdbl(fzjcj)*cdbl(rs("amount"))
end if
if stocknum>20 then
else
allgpsz=allgpsz+jrgpsz
end if
%>
<%=formatnumber(rs("cb"),jingdu,true)%> |
<%=formatnumber(rs("ykcb"),jingdu,true)%> |
<% if csng(fzjcj)=0 then
response.write formatnumber(rs("old_price"),jingdu,true)
'停牌则取昨收盘价
else
response.write formatnumber(fzjcj,jingdu,true)
End If
%>
<%if jrzd<0 then %> <%else%> <%end if%> |
<%=jrzd%>%<%if jrzd<0 then %> <%else%> <%end if%> |
<%if csng(fzjcj)=0 then%><%=formatnumber(csng(fzrsp)*csng(rs("amount")),2)%><%else%><%=formatnumber(csng(fzjcj)*csng(rs("amount")),2)%><%end if%> |
<%=formatnumber((csng(rs("ykcb"))/csng(1+flk))*csng(1+flk2),jingdu,true)%> |
<%if ggyll<0 then %><%else%><%end if%><%=formatnumber(ggyll*100,2,true)%>% |
<%if ggyll<0 then %><%else%><%end if%><%=formatnumber(ryke,2,true)%>
|
<%
zt=rs("ZT")
if zt="1" then
zt1="冻结"%>
<%=zt1%> |
<%else
if rs("tpbz")="T" then %>
停牌 |
<%else
if rs("frozen_amount")>0 then%>
正常 |
<%
else
%>
己下单 |
<%end if
end if
end if
%>
<%
i=i+1
rs.MoveNext
loop
%>
<% if stocknum>20 then %>
<%
if totala>1 then
If Page <> 1 Then
Response.Write "第一页 "
Response.Write "上一页 "
else
Response.Write "第一页 "
Response.Write "上一页 "
End If
If Page <> rs.PageCount and rs.pagecount <>1 Then
Response.Write "下一页 "
Response.Write "最后一页 "
else
Response.Write "下一页 "
Response.Write "最后一页 "
End If
end if
%>
共 <%=stocknum%> 支持仓股票[第<%=page%>页/共<%=totalA%>页]
|
<%
end if%>
<%
rs.close
End If%>
<%
if ifopen="1" then
%>
 |
[<%=gdm%>]今日操作
|
合同号 |
股票代码 | 股票名称 |
买卖 | 委托价 |
数量 |
委托时间 |
成交价 |
成交时间 |
结果 |
委托理由 |
该选手隐藏了他今日的操作流水记录! |
<%
grouptab=teamid+1
else
grouptab=teamid
%>
<%
sql="SELECT * FROM entrust WHERE userid='"&gdm&"' and (entrust_bs='r' or entrust_bs='c') order by date desc,time desc"
rs.open sql,conn,1,1
dayentrustnum=rs.recordcount
%>
 |
[<%=gdm%>]今日操作 共<%=rs.recordcount%>笔
|
|
<%
End if
rs.close
%>
<%
end if
%>
<%
n=Year(date())
y=Month(date())
r=Day(date())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if ifopen="1" then
r=r-7
notetxt="(该选手隐藏了近7天的交易明细)"
end if
rq=n & "-" & y & "-" & r
page=int(request("page"))
startdate=trim(request("startdate"))
enddate=trim(request("enddate"))
if startdate="" then startdate="2004-01-01"
if enddate="" then enddate=rq
'Set rs = Server.CreateObject("ADODB.Recordset")
tblName="hisentrust"
strWhere="userid='"&gdm&"' and wtdate>='"&startdate&"' and wtdate<='"&enddate&"' "
intPageSize="10"
ordern="cj_time"
Set Cmd = Server.CreateObject("ADODB.Command")
With Cmd
.ActiveConnection = conn
.CommandText = "CutPage"
.CommandType = 4
'表名
Set Param1 = .CreateParameter("tblName",200,1,50,tblName)
.Parameters.Append Param1
'需要返回的列
Set Param1 = .CreateParameter("strGetFields",200,1,50,"*")
.Parameters.Append Param1
'排序的字段名
Set Param1 = .CreateParameter("fldName",200,1,255,ordern)
.Parameters.Append Param1
'where条件
Set Param1 = .CreateParameter("strWhere",200,1,500,strWhere)
.Parameters.Append Param1
'页尺寸
Set Param1 = .CreateParameter("PageSize",4,1,4,intPageSize)
.Parameters.Append Param1
'页码
Set Param1 = .CreateParameter("PageIndex",4,1,4,page)
.Parameters.Append Param1
'返回记录总数 0 全部
Set Param1 = .CreateParameter("doCount",4,1,1,1)
.Parameters.Append Param1
'@OrderType
Set Param1 = .CreateParameter("OrderType",4,1,1,1)
.Parameters.Append Param1
End With
Set rs = Cmd.Execute()
totalA=int(rs("total")/intPageSize+0.999999)
total=int(rs("total"))
rs.close
Set Cmd.ActiveConnection= Nothing
Set Param1 = Nothing
Set Cmd = Nothing
if page<1 then page=1
if page>totala then page=totala
if page=0 then page=1
Set Cmd = Server.CreateObject("ADODB.Command")
With Cmd
.ActiveConnection = conn
.CommandText = "CutPage"
.CommandType = 4
'表名
Set Param1 = .CreateParameter("tblName",200,1,50,tblName)
.Parameters.Append Param1
'需要返回的列
Set Param1 = .CreateParameter("strGetFields",200,1,50,"*")
.Parameters.Append Param1
'排序的字段名
Set Param1 = .CreateParameter("fldName",200,1,255,ordern)
.Parameters.Append Param1
'where条件
Set Param1 = .CreateParameter("strWhere",200,1,500,strWhere)
.Parameters.Append Param1
'页尺寸
Set Param1 = .CreateParameter("PageSize",4,1,4,intPageSize)
.Parameters.Append Param1
'页码
Set Param1 = .CreateParameter("PageIndex",4,1,4,page)
.Parameters.Append Param1
'返回记录总数 0 全部
Set Param1 = .CreateParameter("doCount",4,1,1,0)
.Parameters.Append Param1
'@OrderType
Set Param1 = .CreateParameter("OrderType",4,1,1,1)
.Parameters.Append Param1
End With
Set rs = Cmd.Execute()
%>
→提示:两个月之前的历史成交记录请登录系统后查询 |
[<%=gdm%>]近两个月内历史成交<%=notetxt%> 共<%=total%>笔<%if totala>1 then%>[第<%=page%>页/共<%=totala%>页]<%end if%>
|
<%
End if
%>
|